use Gtk2 -init;
use Gtk2::GladeXML;
use Glib qw(TRUE FALSE);


  sub my_quit
  {
  	Gtk2->main_quit;
  }

  $gladexml = Gtk2::GladeXML->new('Hello.glade');
  $gladexml->signal_autoconnect_from_package('main');
  $vbox = $gladexml->get_widget('vbox');
  
  $notebook = Gtk2::Notebook->new;
  $vbox->pack_start($notebook,TRUE,TRUE,4);
  
  $notebook->append_page (Gtk2::Label->new ('Page 1'), Gtk2::Label->new ('Page 1_lbl'));
  $notebook->append_page (Gtk2::Label->new ('Page 2'), Gtk2::Label->new ('Page 2_lbl'));
  $notebook->append_page (Gtk2::Label->new ('Page 3'), Gtk2::Label->new ('Page 3_lbl'));
  $notebook->append_page (Gtk2::Label->new ('Page 4'), Gtk2::Label->new ('Page 4_lbl'));

    
  
  
  $gladexml->get_widget('window1')->show_all; 
  
  
  Gtk2->main;
  